home *** CD-ROM | disk | FTP | other *** search
/ Cookbook USA: Drips, Dressings & Sauces / Cookbook USA - Drips, Dressings & Sauces (1997)(MicroMedia).iso / ch15 / frmreade.frm < prev    next >
Text File  |  1996-07-05  |  2KB  |  69 lines
  1. VERSION 2.00
  2. Begin Form frmReader 
  3.    BackColor       =   &H00FFFF80&
  4.    Caption         =   "*** Caption Set at RunTime ***"
  5.    ClientHeight    =   5280
  6.    ClientLeft      =   825
  7.    ClientTop       =   660
  8.    ClientWidth     =   7365
  9.    Height          =   5685
  10.    Icon            =   FRMREADE.FRX:0000
  11.    Left            =   765
  12.    LinkTopic       =   "Form4"
  13.    ScaleHeight     =   5280
  14.    ScaleWidth      =   7365
  15.    Top             =   315
  16.    Width           =   7485
  17.    Begin CommandButton cmdExit 
  18.       BackColor       =   &H00FF0000&
  19.       Caption         =   "E&xit"
  20.       Height          =   495
  21.       Left            =   5880
  22.       TabIndex        =   1
  23.       Top             =   4680
  24.       Width           =   1335
  25.    End
  26.    Begin TextBox txtTextViewer 
  27.       Height          =   4455
  28.       Left            =   120
  29.       MultiLine       =   -1  'True
  30.       ScrollBars      =   2  'Vertical
  31.       TabIndex        =   0
  32.       Top             =   120
  33.       Width           =   7095
  34.    End
  35. End
  36. ' Simply a large text box, frmReader enables the user to
  37. ' view the contents of the help files.
  38.  
  39. Option Explicit
  40.  
  41. '--------------------------------------------------------------------------
  42. Sub cmdExit_Click ()
  43.     
  44.     MakeMouseCursorHourglass
  45.     txtTextViewer = ""
  46.     frmReadme.Show
  47.     Hide
  48.     MakeMouseCursorDefault
  49.  
  50. End Sub
  51.  
  52. '--------------------------------------------------------------------------
  53. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  54. ' centering the form
  55. Me.Left = (screen.Width - Me.Width) / 2
  56. Me.Top = Abs((screen.Height - Me.Height) / 2)
  57.     
  58.     If UnloadMode = 0 Then Call cmdExit_Click
  59.  
  60. End Sub
  61.  
  62. '--------------------------------------------------------------------------
  63. Sub txtTextViewer_GotFocus ()
  64.     
  65.     cmdExit.SetFocus
  66.  
  67. End Sub
  68.  
  69.